home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Tutorials / Guided Tour Mac II / D5 / D5.rsrc / TEXT_1030.txt < prev    next >
Text File  |  1988-03-04  |  358b  |  14 lines
  1. ]# mouse up stuff
  2. SET SPRITEID[9] = B26
  3. SET SPRITEID[11] = 0
  4. IF ROLLOVER 9 THEN SKIP 3
  5. SET SPRITEID[19] = A62
  6. EXIT
  7. if clickon = 8 then set &CL=1
  8. if clickon = 7 then set &CM=1
  9. if clickon = 1 then exit
  10. SET SPRITEID[CLICKON] = 0
  11. set spriteh[clickon]=-5000
  12. if (&CL+&CM) <> 2 then exit
  13. CALL A21 # deinitialize
  14. GOTO 485 # very good! ("doubleclick to open")¬ØÀá